home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Apple II Sample Code / MPW IIGS SC / SC.024.Teach / teach.p / uEvent.p < prev    next >
Encoding:
Text File  |  1990-06-25  |  789 b   |  48 lines  |  [TEXT/MPS ]
  1. {**********************************************************************
  2. {*
  3. {* Teach uEvent -- Version 3.0  (interface)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1990
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the interface to the code which implements the 
  12. {* main event loop used by the Teach program.
  13. {*
  14. {**********************************************************************}
  15.  
  16. UNIT uEvent;
  17.  
  18. INTERFACE
  19.  
  20. USES
  21.        types,
  22.        locator,
  23.        quickdraw,
  24.        events,
  25.        controls,
  26.        windows,
  27.        dialogs,
  28.        menus,
  29.        stdfile,
  30.        GSOS,
  31.        resources,
  32.  
  33.        uGlobals,
  34.        uWindow,
  35.        uMenu;
  36.  
  37.  
  38.  
  39. procedure mainEvent;   {Main event handling loop which repeats until Quit}
  40.  
  41.  
  42.  
  43. IMPLEMENTATION
  44.  
  45. {$i uEvent.inc.p }
  46.  
  47. END.
  48.